home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Infotenimiento / Rednex / REDNEX.DIR / 00025.ls < prev    next >
Encoding:
Text File  |  1995-08-21  |  1.7 KB  |  78 lines

  1. on mouseUp
  2.   set H1 to 159
  3.   set H2 to 247
  4.   set H3 to 373
  5.   set H4 to 479
  6.   set H5 to 565
  7.   repeat with x = 2 to 3
  8.     puppetSprite(x, 1)
  9.   end repeat
  10.   set v to the castNum of sprite 3
  11.   set x to the locH of sprite 2
  12.   if x < 159 then
  13.     nothing()
  14.   else
  15.     set the locH of sprite 2 to the locH of sprite 2 - 70
  16.     if the locH of sprite 2 < H1 then
  17.       set the locH of sprite 2 to H1
  18.     end if
  19.     set x to the locH of sprite 2
  20.     put x
  21.     if (x > H1) and (x < H2) then
  22.       set the locH of sprite 2 to H1
  23.     end if
  24.     if (x > H2) and (x < H3) then
  25.       set the locH of sprite 2 to H2
  26.     end if
  27.     if (x > H3) and (x < H4) then
  28.       set the locH of sprite 2 to H3
  29.     end if
  30.     if (x > H4) and (x < H5) then
  31.       set the locH of sprite 2 to H4
  32.     end if
  33.     if (x > H5) and (x < H5) then
  34.       set the locH of sprite 2 to H5
  35.     end if
  36.     set x to the locH of sprite 2
  37.     if x = H3 then
  38.       set the castNum of sprite 3 to 50
  39.     else
  40.       if x = H4 then
  41.         set the castNum of sprite 3 to 48
  42.       else
  43.         if x = H5 then
  44.           set the castNum of sprite 3 to 51
  45.         else
  46.           if x = H1 then
  47.             set the castNum of sprite 3 to 49
  48.           else
  49.             if x = H2 then
  50.               set the castNum of sprite 3 to 52
  51.             end if
  52.           end if
  53.         end if
  54.       end if
  55.     end if
  56.     if x = H4 then
  57.       set the soundLevel to 5
  58.     else
  59.       if x = H3 then
  60.         set the soundLevel to 4
  61.       else
  62.         if x = H2 then
  63.           set the soundLevel to 3
  64.         else
  65.           if x = H1 then
  66.             set the soundLevel to 1
  67.           else
  68.             if x = H5 then
  69.               set the soundLevel to 7
  70.             end if
  71.           end if
  72.         end if
  73.       end if
  74.     end if
  75.     updateStage()
  76.   end if
  77. end
  78.